www.gusucode.com > 良精ASP微博管理系统 V1.0 > 良精ASP微博管理系统 V1.0\code\admin\media_link.asp
<!--#include file="../Include/CheckLogin.asp"-->
<!--#include file="../Include/liangconn.asp"-->
<!--#include file="../Include/Function.asp"-->
<%
action = request("action")
act = request("act")
link_id = Request("link_id")
link_type2 = Request("link_type2")
link_type2 = "images"
Set Rs = Server.CreateObject("ADODB.Recordset")
if action = "add" then
sql = "Select * from Liangjing_Link where 1>2"
Rs.open Sql,conn,1,2
Rs.AddNew
Rs("Link_Name") = Request("Link_Name")
Rs("Link_Url") = Request("Link_Url")
Rs("Link_Type") = "images"
If Request("link_img")=Null Or Trim(Request("link_img"))="" Then
Rs("link_img") = "uploadimg/noimage.gif"
Else
Rs("link_img") = Request("link_img")
End If
Rs("Link_Type") = Request("Link_Type")
Rs("Link_OpenType") = Request("Link_OpenType")
Rs("Link_OrderBy") = Request("Link_OrderBy")
Rs("Link_Desc") = Request("Link_Desc")
Rs("Link_AddTime") = Now()
Rs("Link_ModifyTime")= Now()
Rs("Link_IP") = Request.ServerVariables("REMOTE_ADDR")
Rs("Link_Operator") = Session("_AdminID")
Rs.Update
if err.number = 0 then
'call MsgBox2("添加成功！",1,"Media_Link.asp?link_type2="&link_type2)
Response.Redirect("Media_Link.asp?link_type2="&link_type2)
Response.end
end if
elseif action = "edit" then
sql = "Select * from Liangjing_Link where Link_ID="&Request("Link_ID")
Rs.open Sql,conn,1,2
if not Rs.eof then
Rs("Link_Name") = Request("Link_Name")
Rs("Link_Url") = Request("Link_Url")
Rs("Link_Img") = Request("Link_Img")
Rs("Link_Type") = "images"
Rs("Link_OpenType") = Request("Link_OpenType")
Rs("Link_OrderBy") = Request("Link_OrderBy")
Rs("Link_Desc") = Request("Link_Desc")
Rs("Link_ModifyTime")= Now()
Rs("Link_IP") = Request.ServerVariables("REMOTE_ADDR")
Rs("Link_Operator") = Session("_AdminID")
Rs.Update
end if
if err.number = 0 then
'call MsgBox2("添加成功！",1,"Media_Link.asp?link_type2="&link_type2)
Response.Redirect("Media_Link.asp?link_type2="&link_type2)
Response.end
end if
elseif action = "del" then
Sql = "Delete From Liangjing_Link Where Link_ID="&Link_ID
Conn.execute(Sql)
end if
if act = "edit" then
Sql = "Select * From Liangjing_Link Where Link_ID="&Request("Link_ID")
Rs.open Sql,conn,1,2
if not Rs.eof then
Link_Name = Rs("Link_Name")
Link_Url = Rs("Link_Url")
Link_Img = Rs("Link_Img")
Link_Type = "images"
Link_OpenType = Rs("Link_OpenType")
Link_OrderBy = Rs("Link_OrderBy")
Link_Desc = Rs("Link_Desc")
end if
Rs.Close
Set Rs = Nothing
end if
if act = "" then act = "add"
%>
<script language="javascript">
<!--
function frm_onsubmit(frm){
var frm = eval(frm);
if(frm.link_name.value==""){
alert("链接名称不能为空！");
frm.link_name.focus();
return false;
}
if(frm.link_url.value==""){
alert("链接地址不能空！");
frm.link_url.focus();
return false;
}
if(frm.link_orderby.value=="" || isNaN(frm.link_orderby.value)){
alert("请输入排列顺序，且只能为数字");
frm.link_orderby.focus();
return false;
}
if(confirm("您确定要操作此友情链接吗？")){
return true;
}
return false;
}
function isDel(id){
if(confirm("您确定要删除此链接吗？")){
location.href="Media_Link.asp?Action=del&Link_ID="+id+"&link_type2=<%=link_type2%>";
}
}
-->
</script>
<link href="images/Admin.css" rel="stylesheet" type="text/css">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<table width="100%" border="0" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr bgcolor="#EAEAEA">
<td height="25" align="center">编号</td>
<td align="center"> 链接名称</td>
<td align="center"> 图片</td>
<td align="center">打开方式</td>
<td align="center"> 加入时间</td>
<td align="center">排序</td>
<td align="center">操作</td>
</tr>
<%
sql="SELECT * From Liangjing_Link Where 1=1 order by Link_OrderBy"
set RS=conn.execute(sql)
while not Rs.eof
%>
<tr<%= Tr_MouseOver %> bgcolor="#FFFFFF">
<td height="22" align="center"> <%=Rs("Link_ID")%></td>
<td align="center"> <%=rs("Link_Name")%></td>
<td align="center"><img src="../Upload/<%=Rs("Link_Img")%>" ></td>
<td align="center">
<%
if Rs("Link_OpenType") = "_blank" then
Response.write("新窗口打开")
else
Response.write("本窗口打开")
end if
%></td>
<td align="center"><%= FormatDateTime(rs("Link_AddTime"),2) %></td>
<td align="center"><%=Rs("Link_OrderBy")%></td>
<td align="center">
<a href="javascript:isDel(<%=Rs("Link_ID")%>);">删除</a>
<a href="Media_Link.asp?act=edit&link_type2=<%=link_type2%>&Link_ID=<%=Rs("Link_ID")%>">编辑</a>
</td>
</tr>
<%
Rs.MoveNext
Wend
%>
</table>
<br>
<form action="Media_Link.asp" method="post" onSubmit="return frm_onsubmit(this);" name="frmdata">
<table width="100%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="28" colspan="2" bgcolor="#EAEAEA">
<strong> 友情链接管理</strong></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="20%" height="23"> 链接名称：</td>
<td width="80%" height="23">
<input type="text" name="link_name" size="40" maxlength="40" value="<%=Link_Name%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23"> 连接地址：</td>
<td height="23">
<input type="text" name="link_url" size="40" maxlength="50" value="<%=Link_Url%>">
如：http://www.liangjing.org</td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="20%" height="23"> 链接图片：</td>
<td width="80%" height="23">
<input type="text" name="link_img" size="40" maxlength="40" readonly="true" value="<%=Link_img%>">
<input type="button" name="Submit" value="选择" onClick="window.open('../Upload/upload_flash.asp?formname=frmdata&editname=link_img&uppath=UploadImg&filelx=gif','','status=no,scrollbars=no,top=200,left=310,width=420,height=165')">
图片大小：(W:88,H:31)
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23"> 链接排序：</td>
<td height="23"><input type="text" name="link_orderby" size="40" maxlength="40" value="<%=Link_OrderBy%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23"> 打开方式：</td>
<td height="23">
<select name="link_opentype" id="link_opentype" >
<option value="_blank" <% if Link_OpenType = "_blank" then Response.write(" Selected")%>>新窗口打开</option>
<option value="_self" <% if Link_OpenType = "_self" then Response.write(" Selected")%>>本页面打开</option>
</select>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="23"> 链接描述：</td>
<td height="23"><textarea name="link_desc" cols="60" rows="5"><%=link_desc%></textarea></td>
</tr>
<tr bgcolor="#EAEAEA">
<td height="22" colspan="2" align="center">
<input type="submit" name="Submit" value=" 提交 ">
<input type="reset" name="Submit2" value=" 重置 ">
<input type="button" name="button" value=" 重新添加 " onClick="javascript:location.href='Media_Link.asp';">
<input type="hidden" name="action" value="<% = act %>">
<input type="hidden" name="link_id" value="<% = Link_ID %>">
<input type="hidden" name="link_type2" value="<%=link_type2%>">
</td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td height="22"><div align="right"></td>
</tr>
</table>
<%
Set Rs = Nothing
Set Conn = Nothing
%>